function dirtxt=dir2txt(dir)
%funcion para escribir como texto los sectores direccionales n�uticos
%
% This file is part of CISNE.
%
%     CISNE is free software: you can redistribute it and/or modify
%     it under the terms of the GNU General Public License as published by
%     the Free Software Foundation, either version 3 of the License, or
%     any later version.
%
%     CISNE is distributed in the hope that it will be useful,
%     but WITHOUT ANY WARRANTY; without even the implied warranty of
%     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
%     GNU General Public License for more details.
%
%     You should have received a copy of the GNU General Public License
%     along with CISNE.  If not, see <http://www.gnu.org/licenses/>.

% Copyright 2011. Jose Maria Garcia-Valdecasas Bernal
%
% function dirtxt=dir2txt(dir)
% Esta funci�n devuelve como una cadena de texto el sector direccional
% introducido como un valor num�rico. Est�n definidos 16 sectores
% direccionales. ( N, NNE, NE, ENE, E, .......). Si no se corresponde a uno
% de estos sectores, se devuelve como cadena de texto el propio numero
%
% Input:
%   � dir: el valor num�rico de la direcci�n que se quiere convertir en
%           cadena de texto. 
%
% Output:
%   � dirtxt: cadena de texto del sector direccional.
%
% see also getdirsector

% Autor: Jose Mar�a Garc�a-Valdecasas Bernal $ ver: 1.0 - 03/02/2009

switch(dir)
    case 0
        dirtxt='N';
    case 337.5
        dirtxt='NNW';
    case 315
        dirtxt='NW';
    case 292.5
        dirtxt='WNW';
    case 270
        dirtxt='W';
    case 247.5
        dirtxt='WSW';
    case 225
        dirtxt='SW';
    case 202.5
        dirtxt='SSW';
    case 180
        dirtxt='S';
    case 157.5
        dirtxt='SSE';
    case 135
        dirtxt='SE';
    case 112.5
        dirtxt='ESE';
    case 90
        dirtxt='E';
    case 67.5
        dirtxt='ENE';
    case 45
        dirtxt='NE';
    case 22.5
        dirtxt='NNE';
    case 360
        dirtxt='N';
    otherwise
        dirtxt='generico';
end